home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / multi-4a / status.bas < prev    next >
BASIC Source File  |  1999-08-13  |  236b  |  7 lines
  1. Attribute VB_Name = "status"
  2. Sub update_status(message As String)
  3. 'this updates the status window with any new messages
  4. main.status.AddItem "[" & f_time & "] " & message
  5. main.status.ListIndex = (main.status.ListCount - 1)
  6. End Sub
  7.